Celestin Apprentice 7/Apprentice-Release7.iso/Source Code/C/Applications/Moscow ML 1.42/src/tools/mksmlopc

Text File | 1997-08-18 | 103 b | 5 lines | [TEXT/R*ch]

while(<>) {
  if (/^enum /) { $n = 0; }
  if (/^  ([A-Z0-9_]*)/) { print "val $1 = $n;\n"; $n++; }
}